home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / MOVIES.DIR / 00054_Script_buildMovieButtons < prev    next >
Text File  |  1995-11-15  |  1KB  |  25 lines
  1. on buildMovieButtons
  2.   global gMovieButtons
  3.   if voidP(gMovieButtons) then
  4.     set gMovieButtons to [:]
  5.     addProp gMovieButtons, 2, tB(2,"MLARGE.PIC","MLARGER.PIC","MLARGEP.PIC","large")
  6.     addProp gMovieButtons, 3, tB(3,"MSMALL.PIC","MSMALLR.PIC","MSMALLP.PIC","small")
  7.     addProp gMovieButtons, 4, tB(4,"MSHOWC.PIC","MSHOWCR.PIC","MSHOWCP.PIC","controller")
  8.     addProp gMovieButtons, 5, tB(5,"MT.PIC","MTR.PIC","MTP.PIC","retraceLocal")
  9.     addProp gMovieButtons,6, tB(6,"MCC.PIC","MCR.PIC","MCP.PIC","doContentsLocal")
  10.     addProp gMovieButtons, 7, tB(7,"ML.PIC","MLR.PIC","MLP.PIC","prevMovie")
  11.     addProp gMovieButtons, 8, tB(8,"MR.PIC","MRR.PIC","MRP.PIC","nextMovie")
  12.     addProp gMovieButtons, 9, tB(9,"MVISIT.PIC","MVISITR.PIC","MVISITP.PIC","visit")
  13.     addProp gMovieButtons, 10, tB(10,"MCONTM.PIC","MCONTMR.PIC","MCONTP.PIC","continue")
  14.     addProp gMovieButtons, 11, tB(11,"QDbox","QDbox","QDbox","playMovie")
  15.     addProp gMovieButtons, 12, qt(12)
  16.   end if
  17. end buildMovieButtons
  18.  
  19. on tB c,n,r,p,sc
  20.   return birth(script "bt",c, n,r,p,sc)
  21. end tB
  22.  
  23. on qt c
  24.   return birth(script "qt",c)
  25. end qt